module ops
interface operator (*)
	module procedure rat_mult
end interface
end module
